Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/pgm_ctrl/cuactrls/cmain.frm

Text File | 1995-05-22 | 13KB | 475 lines

VERSION 2.00
Begin Form frmMain
   BorderStyle     =   3  'Fixed Double
   Caption         =   "CUA/Controls Demonstration"
   ClientHeight    =   6480
   ClientLeft      =   675
   ClientTop       =   495
   ClientWidth     =   6540
   ClipControls    =   0   'False
   Height          =   6885
   Icon            =   CMAIN.FRX:0000
   Left            =   615
   LinkTopic       =   "Form1"
   ScaleHeight     =   6480
   ScaleWidth      =   6540
   Top             =   150
   Width           =   6660
   Begin Data Data1
      Caption         =   "Data1"
      Connect         =   ""
      DatabaseName    =   "C:\BP\CUACTLS\CUACTLS.MDB"
      Exclusive       =   0   'False
      Height          =   270
      Left            =   4920
      Options         =   0
      ReadOnly        =   0   'False
      RecordSource    =   "Test"
      Top             =   4080
      Visible         =   0   'False
      Width           =   1155
   End
   Begin CUACommand cmdOm
      Caption         =   "About..."
      Height          =   345
      Left            =   4890
      Picture         =   CMAIN.FRX:0302
      TabIndex        =   29
      Top             =   5700
      Width           =   1440
   End
   Begin CUACommand cmdHjΣlp
      Caption         =   "&Help"
      Height          =   345
      Left            =   4890
      Picture         =   CMAIN.FRX:03F4
      TabIndex        =   28
      Top             =   5310
      Width           =   1440
   End
   Begin CUACommand cmdAvbryt
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   345
      Left            =   4890
      StandardButton  =   2  'Cancel
      TabIndex        =   25
      Top             =   2175
      Width           =   1440
   End
   Begin CUACommand cmdOK
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   345
      Left            =   4890
      StandardButton  =   1  'OK
      TabIndex        =   24
      Top             =   1785
      Width           =   1440
   End
   Begin CUACommand cmdGrid
      Caption         =   "Grid"
      Height          =   345
      Left            =   2460
      TabIndex        =   23
      Top             =   5700
      Width           =   2085
   End
   Begin CUACommand cmdTooltips
      Caption         =   "Tool Tips"
      Height          =   345
      Left            =   210
      TabIndex        =   22
      Top             =   5700
      Width           =   2085
   End
   Begin CUACommand cmdToolBox
      Caption         =   "Tool Box"
      Height          =   345
      Left            =   2460
      TabIndex        =   21
      Top             =   5310
      Width           =   2085
   End
   Begin CUACommand cmdIcon
      Caption         =   "Icon"
      Height          =   345
      Left            =   210
      TabIndex        =   20
      Top             =   5310
      Width           =   2085
   End
   Begin CUACommand cmdTerm
      Caption         =   "Thermometer"
      Height          =   345
      Left            =   210
      TabIndex        =   18
      Top             =   4905
      Width           =   2085
   End
   Begin CUACommand cmdLamp
      Caption         =   "Lamp"
      Height          =   345
      Left            =   2460
      TabIndex        =   19
      Top             =   4905
      Width           =   2085
   End
   Begin CUACombo cboLook
      DataField       =   "TEXT"
      DataSource      =   "Data1"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   300
      Left            =   4890
      Style           =   2  'Dropdown List
      TabIndex        =   27
      Top             =   3720
      Width           =   1440
   End
   Begin CUACommand cmdBook
      Caption         =   "Notebook"
      Height          =   345
      Left            =   2460
      TabIndex        =   17
      Top             =   4515
      Width           =   2085
   End
   Begin CUACommand cmdTabs
      Caption         =   "Tabbed Dialog"
      Height          =   345
      Left            =   2460
      TabIndex        =   15
      Top             =   4125
      Width           =   2085
   End
   Begin CUACommand cmdRotary
      Caption         =   "Rotor"
      Height          =   345
      Left            =   2460
      TabIndex        =   13
      Top             =   3735
      Width           =   2085
   End
   Begin CUACommand cmdList
      Caption         =   "Li&st Box"
      Height          =   345
      Left            =   210
      TabIndex        =   16
      Top             =   4515
      Width           =   2085
   End
   Begin CUACommand cmdCombo
      Caption         =   "Co&mbo Box"
      Height          =   345
      Left            =   210
      TabIndex        =   14
      Top             =   4125
      Width           =   2085
   End
   Begin CUACommand cmdRadio
      Caption         =   "&Radio Button"
      Height          =   345
      Left            =   210
      TabIndex        =   12
      Top             =   3735
      Width           =   2085
   End
   Begin CUACommand cmdCheck
      Caption         =   "&Check Box"
      Height          =   345
      Left            =   210
      TabIndex        =   10
      Top             =   3345
      Width           =   2085
   End
   Begin CUACommand cmdCommand
      Caption         =   "Command &Button"
      Height          =   345
      Left            =   210
      TabIndex        =   8
      Top             =   2955
      Width           =   2085
   End
   Begin CUACommand cmdFrame
      Caption         =   "&Frame"
      Height          =   345
      Left            =   210
      TabIndex        =   6
      Top             =   2565
      Width           =   2085
   End
   Begin CUACommand cmdTextBox
      Caption         =   "&Text Box"
      Height          =   345
      Left            =   210
      TabIndex        =   4
      Top             =   2175
      Width           =   2085
   End
   Begin CUACommand cmdLabel
      Caption         =   "&Label"
      Height          =   345
      Left            =   210
      TabIndex        =   2
      Top             =   1785
      Width           =   2085
   End
   Begin CUACommand cmdSlider
      Caption         =   "Slider"
      Height          =   345
      Left            =   2460
      TabIndex        =   11
      Top             =   3345
      Width           =   2085
   End
   Begin CUACommand cmdMeter
      Caption         =   "Meter"
      Height          =   345
      Left            =   2460
      TabIndex        =   9
      Top             =   2955
      Width           =   2085
   End
   Begin CUACommand cmdSpin
      Caption         =   "Spin Button"
      Height          =   345
      Left            =   2460
      TabIndex        =   7
      Top             =   2565
      Width           =   2085
   End
   Begin CUACommand cmdStatus
      Caption         =   "Status Bar"
      Height          =   345
      Left            =   2460
      TabIndex        =   5
      Top             =   2175
      Width           =   2085
   End
   Begin CUACommand cmdToolBar
      Caption         =   "Tool Bar"
      Height          =   345
      Left            =   2460
      TabIndex        =   3
      Top             =   1785
      Width           =   2085
   End
   Begin CUALabel lbl1
      Caption         =   "Look:"
      Height          =   195
      Left            =   4890
      TabIndex        =   26
      Top             =   3480
      Width           =   495
   End
   Begin CUALabel lbl
      Caption         =   "Copyright (c) 1995, Stingsoft"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   195
      Index           =   2
      Left            =   210
      TabIndex        =   30
      Top             =   6180
      Width           =   3015
   End
   Begin CUALabel lbl
      Caption         =   "CUA/Controls can take on the look of OS/2, but also Windows 3 (3D), Windows 95 (Chicago) and Borland BWCC. Push the buttons for a demo of each component:"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   600
      Index           =   3
      Left            =   240
      TabIndex        =   1
      Top             =   870
      Width           =   4425
   End
   Begin CUALabel lbl
      Caption         =   "CUA/Controls is a library of well designed and efficient VBX components for programming with Visual Basic, Delphi, Visual C++, Borland C++, Powerbuilder, SQL-Windows and other development environments supporting VBX:es."
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   615
      Index           =   4
      Left            =   240
      TabIndex        =   0
      Top             =   180
      Width           =   5760
      WordWrap        =   -1  'True
   End
   Begin Line Line1
      X1              =   4695
      X2              =   4695
      Y1              =   1770
      Y2              =   6030
   End
End
Option Explicit

Const MODAL = 1

Sub cboLook_Click ()
   'Beep
   ConfigCUA cboLook.ListIndex + OS2Mode, True
End Sub

Sub cmdAvbryt_Click ()
   Unload Me
End Sub

Sub cmdBook_Click ()
   frmBook.Show MODAL
End Sub

Sub cmdCheck_Click ()
   frmCheck.Show MODAL
End Sub

Sub cmdCombo_Click ()
   frmCombo.Show MODAL
End Sub

Sub cmdCommand_Click ()
   frmCommand.Show MODAL
End Sub

Sub cmdFrame_Click ()
   frmFrame.Show MODAL
End Sub

Sub cmdGrid_Click ()
   frmGrid.Show MODAL
End Sub

Sub cmdHjΣlp_Click ()
   Dim RC%
   RC = WinHelp(0, "cuactls.hlp", HELP_CONTENTS, 0)
End Sub

Sub cmdIcon_Click ()
   frmIcon.Show MODAL
End Sub

Sub cmdLabel_Click ()
   frmLabel.Show MODAL
End Sub

Sub cmdLamp_Click ()
   frmLamp.Show MODAL
End Sub

Sub cmdList_Click ()
   frmList.Show MODAL
End Sub

Sub cmdMeter_Click ()
   frmMeter.Show MODAL
End Sub

Sub cmdOK_Click ()
   Unload Me
End Sub

Sub cmdOm_Click ()
   frmOm.Show MODAL
End Sub

Sub cmdRadio_Click ()
   frmRadio.Show MODAL
End Sub

Sub cmdRotary_Click ()
   frmRotary.Show MODAL
End Sub

Sub cmdSlider_Click ()
   frmSlider.Show MODAL
End Sub

Sub cmdSpin_Click ()
   frmSpin.Show MODAL
End Sub

Sub cmdStatus_Click ()
   frmStatus.Show MODAL
End Sub

Sub cmdTabs_Click ()
   frmTabWord60.Show MODAL
End Sub

Sub cmdTerm_Click ()
   frmTermo.Show MODAL
End Sub

Sub cmdTextBox_Click ()
   frmTextBox.Show MODAL
End Sub

Sub cmdToolBar_Click ()
   frmToolBar.Show MODAL
End Sub

Sub cmdToolBox_Click ()
   frmToolBox.Show MODAL
End Sub

Sub cmdTooltips_Click ()
   frmToolTips.Show MODAL
End Sub

Sub Data1_Error (DataErr As Integer, Response As Integer)
   Dim CR$, Buff$

   CR = Chr$(13)
   If Dir$(DatabaseName) <> "" Then
      Buff = "St÷d f÷r MS Access 2.0 saknas." & CR
      Buff = Buff & "MSAJT112.DLL, MSASJ200.DLL och VBDB300.DLL mσste" & CR
      Buff = Buff & "finnas i Windows \SYSTEM katalog f÷r att databas-" & CR
      Buff = Buff & "funktionerna ska kunna demonstreras."
   Else
      Buff = "Filen CUACTLS.MDB mσste finnas i samma katalog" & CR
      Buff = Buff & "som denna demo om databasfunktionerna ska" & CR
      Buff = Buff & "kunna demonstreras."
   End If
   MsgBox Buff
   Response = 0
End Sub

Sub Form_DragDrop (Source As Control, X As Single, Y As Single)
   MsgBox "Drop!"
End Sub

Sub Form_DragOver (Source As Control, X As Single, Y As Single, State As Integer)
   Call dragDragOver(Source, Me, X, Y, State)
End Sub

Sub Form_Load ()
   Me.Tag = MAIW
   dragInit
   DatabaseName = App.Path & "\CUACTLS.MDB"
   cboLook.AddItem "OS/2"
   cboLook.AddItem "Windows 3/3D"
   cboLook.AddItem "Windows 95"
   cboLook.AddItem "Borland BWCC"
   cboLook.AddItem "Windows 3"
   Data1.DatabaseName = DatabaseName
End Sub